home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / COBFILES / HELLO1.COB < prev    next >
Text File  |  1997-06-25  |  2KB  |  57 lines
  1.       * ROUTINE TO DISPLAY A MULTIPLICATION GRID.                      
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID.  HELLO1.
  4.        AUTHOR.  cHArRiOTt.
  5.       * 
  6.        ENVIRONMENT DIVISION.
  7.       *
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  X-SCREEN-DFT    PIC 99 VALUE  10.
  11.        01  Y-SCREEN-DFT    PIC 99 VALUE  05.
  12.        01  Y-ROW           PIC 99.
  13.        01  X-COLUMN        PIC 99.
  14.        01  X-POS           PIC 99.
  15.        01  Y-POS           PIC 99.
  16.        01  XY-PRODUCT      PIC 9(3).
  17.       *
  18.       *  
  19.        PROCEDURE DIVISION.
  20.        001-MAIN.
  21.            DISPLAY (1 , 10)
  22.            "Routine to CALCULATE and DISPLAY a MULTIPLICATION TABLE".
  23.            MOVE ZEROS TO Y-ROW.
  24.            PERFORM 002-ROWS
  25.                VARYING Y-ROW FROM 1 BY 1 UNTIL Y-ROW > 10.
  26.            STOP RUN.
  27.       *
  28.       *
  29.        002-ROWS.
  30.            MOVE ZEROS TO X-COLUMN.
  31.            PERFORM 003-COLUMNS
  32.                VARYING X-COLUMN FROM 1 BY 1 UNTIL X-COLUMN > 10.
  33.       *
  34.       *
  35.        003-COLUMNS.
  36.            MOVE ZEROS TO X-POS.
  37.            MULTIPLY X-COLUMN BY 5 GIVING    X-POS.
  38.            ADD X-SCREEN-DFT TO X-POS.
  39.       * 
  40.            MOVE ZEROS TO Y-POS.
  41.            MOVE Y-ROW TO Y-POS.
  42.            ADD Y-SCREEN-DFT TO Y-POS.
  43.       *
  44.            MULTIPLY Y-ROW BY X-COLUMN 
  45.                           GIVING    XY-PRODUCT.
  46.            PERFORM 004-DISPLAY-PRODUCT.
  47.            ADD 1 TO X-COLUMN.
  48.       *
  49.       *                                                                
  50.        004-DISPLAY-PRODUCT.
  51.            MOVE Y-POS  TO LIN.
  52.            MOVE X-POS  TO COL.
  53.            DISPLAY (LIN , COL) XY-PRODUCT.
  54.       *
  55.       *
  56.       *****END*******************************************Š   
  57.